home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / UI / OscilGenUI.fl < prev    next >
Text File  |  2005-03-14  |  34KB  |  1,132 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0106 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {//Copyright (c) 2002-2005 Nasca Octavian Paul} {} 
  6.  
  7. decl {//License: GNU GPL version 2} {} 
  8.  
  9. decl {\#include "../Synth/OscilGen.h"} {public
  10. } 
  11.  
  12. decl {\#include "../Misc/Util.h"} {public
  13. } 
  14.  
  15. decl {\#include "../Misc/Master.h"} {public
  16. } 
  17.  
  18. decl {\#include "ResonanceUI.h"} {public
  19. } 
  20.  
  21. decl {\#include <FL/Fl_Box.H>} {public
  22. } 
  23.  
  24. decl {\#include <FL/Fl_Group.H>} {public
  25. } 
  26.  
  27. decl {\#include <FL/Fl_Slider.H>} {public
  28. } 
  29.  
  30. decl {\#include <math.h>} {} 
  31.  
  32. decl {\#include <stdio.h>} {} 
  33.  
  34. decl {\#include <stdlib.h>} {} 
  35.  
  36. decl {\#include <string.h>} {} 
  37.  
  38. decl {\#include "WidgetPDial.h"} {public
  39. } 
  40.  
  41. decl {\#include "EnvelopeUI.h"} {public
  42. } 
  43.  
  44. decl {\#include "LFOUI.h"} {public
  45. } 
  46.  
  47. decl {\#include "FilterUI.h"} {public
  48. } 
  49.  
  50. decl {\#include "PresetsUI.h"} {public
  51. } 
  52.  
  53. class OscilSpectrum {: {public Fl_Box}
  54. } {
  55.   Function {OscilSpectrum(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  56.     code {oscil=NULL;} {}
  57.   }
  58.   Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {
  59.     code {oscil=oscil_;
  60. oscbase=oscbase_;
  61. master=master_;} {}
  62.   }
  63.   Function {draw()} {} {
  64.     code {int ox=x(),oy=y(),lx=w(),ly=h(),i;
  65. const int maxdb=60;//must be multiple of 10
  66. int GX=2;
  67. int n=lx/GX-1;
  68. if (n>OSCIL_SIZE/2) n=OSCIL_SIZE/2;
  69.  
  70. REALTYPE x;
  71. REALTYPE spc[n];
  72. for (i=0;i<n;i++) spc[i]=0.0;
  73.  
  74. pthread_mutex_lock(&master->mutex);
  75. if (oscbase==0) oscil->getspectrum(n,spc,0);
  76.     else oscil->getspectrum(n,spc,1);
  77. pthread_mutex_unlock(&master->mutex);
  78.  
  79. //normalize
  80. REALTYPE max=0;
  81. for (i=0;i<n;i++){
  82.    x=fabs(spc[i]);
  83.    if (max<x) max=x;
  84. }
  85. if (max<0.000001) max=1.0;
  86. max=max*1.05;
  87.  
  88. //draw
  89.  
  90. if (this->active_r()) fl_color(this->parent()->selection_color());
  91.     else fl_color(this->parent()->color());
  92. fl_line_style(FL_DOT);
  93.  
  94. for (i=1;i<maxdb/10;i++){
  95.   int ky=(int)((REALTYPE)i*ly*10.0/maxdb)/2;
  96.   ky*=2;
  97.   fl_line(ox,oy+ky-1,ox+lx-2,oy+ky-1);
  98. };
  99.  
  100. for (i=2;i<n;i++){
  101.     int tmp=i*GX-2;
  102.     if (i%10==1) fl_line_style(0);
  103.        else fl_line_style(FL_DOT);
  104.     fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);
  105. }
  106.  
  107. if (this->active_r()) fl_color(this->parent()->labelcolor());
  108.     else fl_color(this->parent()->color());
  109. fl_line_style(0);
  110.  
  111. //draws the spectrum
  112. for (i=0;i<n;i++){
  113.    int tmp=i*GX+2;
  114.    x=spc[i]/max;
  115.    
  116.    if (x>dB2rap(-maxdb)) x=rap2dB(x)/maxdb+1;
  117.        else x=0;
  118.  
  119.    int val=(int) ((ly-2)*x);
  120.    if (val>0) fl_line(ox+tmp,oy+ly-2-val,ox+tmp,oy+ly-2);
  121. };} {}
  122.   }
  123.   decl {OscilGen *oscil;} {}
  124.   decl {int oscbase;} {}
  125.   decl {Master *master;} {}
  126. } 
  127.  
  128. class PSlider {: {public Fl_Slider}
  129. } {
  130.   Function {PSlider(int x,int y, int w, int h, const char *label=0):Fl_Slider(x,y,w,h,label)} {} {}
  131.   Function {handle(int event)} {return_type int
  132.   } {
  133.     code {int X=x(),Y=y(),W=w(),H=h();
  134.  
  135. if ((!Fl::event_buttons())|| (event==0)||(Fl::event_shift()==0)) return(Fl_Slider::handle(event));
  136.  
  137. if (!Fl::event_inside(X,Y,W,H)) {
  138.     if (event==FL_DRAG){
  139.         Fl_Slider::handle(FL_RELEASE);
  140.         Fl_Slider::handle(FL_LEAVE);
  141.         deactivate();
  142.         activate();
  143.         return(1);    
  144.     }else{
  145.         return(Fl_Slider::handle(event));
  146.     };
  147. } else {
  148.     //Fl_Slider::handle(FL_FOCUS);
  149.     Fl_Slider::handle(FL_PUSH);
  150. };
  151.  
  152. return(1);} {}
  153.   }
  154. } 
  155.  
  156. class Oscilloscope {: {public Fl_Box}
  157. } {
  158.   Function {Oscilloscope(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  159.     code {oscil=NULL;
  160. phase=64;
  161. oscbase=0;} {}
  162.   }
  163.   Function {init(OscilGen *oscil_,Master *master_)} {} {
  164.     code {oscil=oscil_;
  165. master=master_;} {}
  166.   }
  167.   Function {init(OscilGen *oscil_,int oscbase_,Master *master_)} {} {
  168.     code {oscil=oscil_;
  169. oscbase=oscbase_;
  170. master=master_;} {}
  171.   }
  172.   Function {init(OscilGen *oscil_,int oscbase_,int phase_,Master *master_)} {} {
  173.     code {oscil=oscil_;
  174. oscbase=oscbase_;
  175. phase=phase_;
  176. master=master_;} {}
  177.   }
  178.   Function {draw()} {} {
  179.     code {int ox=x(),oy=y(),lx=w(),ly=h()-1,i;
  180. REALTYPE smps[OSCIL_SIZE];
  181. pthread_mutex_lock(&master->mutex);
  182. if (oscbase==0) oscil->get(smps,-1.0);
  183.     else oscil->getcurrentbasefunction(smps);
  184. pthread_mutex_unlock(&master->mutex);
  185.  
  186. if (damage()!=1){
  187.  fl_color(0,0,0);
  188.  fl_rectf(ox,oy,lx,ly);
  189. };
  190.  
  191. //normalize
  192. REALTYPE max=0;
  193. for (i=0;i<OSCIL_SIZE;i++)
  194.    if (max<fabs(smps[i])) max=fabs(smps[i]);
  195. //fprintf(stderr,"%.4f\\n",max);
  196. if (max<0.00001) max=1.0;
  197. max=-max*1.05;
  198.  
  199. //draw
  200. fl_line_style(FL_DASH);
  201. if (this->active_r()) fl_color(this->parent()->labelcolor());
  202.     else fl_color(this->parent()->color());
  203. int GX=16;if (lx<GX*3) GX=-1;
  204. for (i=1;i<GX;i++){
  205.    int tmp=(int)(lx/(REALTYPE)GX*i);
  206.    fl_line(ox+tmp,oy+2,ox+tmp,oy+ly-2);
  207. };
  208. int GY=8;if (ly<GY*3) GY=-1;
  209. for (i=1;i<GY;i++){
  210.    int tmp=(int)(ly/(REALTYPE)GY*i);
  211.    fl_line(ox+2,oy+tmp,ox+lx-2,oy+tmp);
  212. };
  213.  
  214. //draw the function
  215. fl_line_style(0,1);
  216. fl_line(ox+2,oy+ly/2,ox+lx-2,oy+ly/2);
  217. if (this->active_r()) fl_color(this->parent()->selection_color());
  218.     else fl_color(this->parent()->labelcolor());
  219. int lw=1;
  220. //if ((lx<135)||(ly<135)) lw=1;
  221. fl_line_style(0,lw);
  222. int ph=(int)((phase-64.0)/128.0*OSCIL_SIZE+OSCIL_SIZE);
  223. for (i=1;i<lx;i++){
  224.    int k1=(int)((REALTYPE)OSCIL_SIZE*(i-1)/lx)+ph;
  225.    int k2=(int)((REALTYPE)OSCIL_SIZE*i/lx)+ph;
  226.    REALTYPE y1=smps[k1%OSCIL_SIZE]/max;
  227.    REALTYPE y2=smps[k2%OSCIL_SIZE]/max;
  228.    fl_line(i-1+ox,(int)(y1*ly/2.0)+oy+ly/2,i+ox,(int)(y2*ly/2.0)+oy+ly/2);
  229. };} {}
  230.   }
  231.   decl {OscilGen *oscil;} {}
  232.   decl {int oscbase;} {}
  233.   decl {int phase;} {public
  234.   }
  235.   decl {Master *master;} {}
  236. } 
  237.  
  238. class Oscilharmonic {: {public Fl_Group}
  239. } {
  240.   Function {make_window()} {private
  241.   } {
  242.     Fl_Window harmonic {
  243.       private xywh {328 166 90 225} type Double hide
  244.       class Fl_Group
  245.     } {
  246.       Fl_Slider mag {
  247.         callback {int x=64;
  248. if (Fl::event_button3()) o->value(x);
  249.    else x=127-(int)o->value();
  250. if (x==64) o->selection_color(0);
  251.     else o->selection_color(222);
  252.  
  253. pthread_mutex_lock(&master->mutex);
  254.  oscil->Phmag[n]=x;
  255.  if (x==64) {
  256.     oscil->Phphase[n]=64;
  257.     phase->value(64);
  258.  };
  259.  oscil->prepare();
  260. pthread_mutex_unlock(&master->mutex);
  261.  
  262. display->redraw();
  263. oldosc->redraw();
  264. if (cbwidget!=NULL) {
  265.     cbwidget->do_callback();
  266.     applybutton->color(FL_RED);
  267.     applybutton->redraw();
  268. };}
  269.         xywh {0 15 15 115} type {Vert Knob} box FLAT_BOX selection_color 222 labelcolor 0 maximum 127 step 1 value 64
  270.         code0 {o->value(127-oscil->Phmag[n]);}
  271.         code1 {if (oscil->Phmag[n]==64) o->selection_color(0);}
  272.         class PSlider
  273.       }
  274.       Fl_Slider phase {
  275.         callback {int x=64;
  276. if (Fl::event_button3()) o->value(x);
  277.    else x=(int)o->value();
  278.  
  279. pthread_mutex_lock(&master->mutex);
  280.  oscil->Phphase[n]=x;
  281.  oscil->prepare();
  282. pthread_mutex_unlock(&master->mutex);
  283.  
  284. display->redraw();
  285. oldosc->redraw();
  286. if (cbwidget!=NULL) {
  287.     cbwidget->do_callback();
  288.     applybutton->color(FL_RED);
  289.     applybutton->redraw();
  290. };}
  291.         xywh {0 135 15 75} type {Vert Knob} box FLAT_BOX selection_color 222 maximum 127 step 1 value 64
  292.         code0 {o->value(oscil->Phphase[n]);}
  293.         class PSlider
  294.       }
  295.       Fl_Box {} {
  296.         xywh {15 70 5 5} box FLAT_BOX color 45
  297.       }
  298.       Fl_Box {} {
  299.         xywh {15 170 5 5} box FLAT_BOX color 45
  300.       }
  301.       Fl_Box {} {
  302.         label 01
  303.         xywh {0 210 20 15} labelfont 1 labelsize 9 align 20
  304.         code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
  305.       }
  306.       Fl_Box {} {
  307.         label 01
  308.         xywh {0 0 20 15} labelfont 1 labelsize 9 align 20
  309.         code0 {char tmp[10];snprintf(tmp,10,"%d",n+1);o->label(strdup(tmp));}
  310.       }
  311.     }
  312.   }
  313.   Function {Oscilharmonic(int x,int y, int w, int h, const char *label=0):Fl_Group(x,y,w,h,label)} {} {
  314.     code {n=0;
  315. oscil=NULL;
  316. display=NULL;
  317. applybutton=NULL;
  318. cbwidget=NULL;} {}
  319.   }
  320.   Function {init(OscilGen *oscil_,int n_,Fl_Group *display_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Fl_Widget *applybutton_, Master *master_)} {} {
  321.     code {oscil=oscil_;
  322. n=n_;
  323. display=display_;
  324. master=master_;
  325. oldosc=oldosc_;
  326. cbwidget=cbwidget_;
  327. applybutton=applybutton_;
  328. make_window();
  329. end();
  330. harmonic->show();} {}
  331.   }
  332.   Function {refresh()} {} {
  333.     code {mag->value(127-oscil->Phmag[n]);
  334. phase->value(oscil->Phphase[n]);
  335.  
  336. if (oscil->Phmag[n]==64) mag->selection_color(0);
  337.     else mag->selection_color(222);} {}
  338.   }
  339.   Function {~Oscilharmonic()} {} {
  340.     code {harmonic->hide();
  341. //delete(harmonic);} {}
  342.   }
  343.   decl {OscilGen *oscil;} {}
  344.   decl {Fl_Group *display;} {}
  345.   decl {int n;} {}
  346.   decl {Fl_Widget *oldosc,*cbwidget,*applybutton;} {}
  347.   decl {Master *master;} {}
  348. } 
  349.  
  350. class OscilEditor {: {public PresetsUI_}
  351. } {
  352.   Function {make_window()} {} {
  353.     Fl_Window osceditUI {
  354.       label {ADsynth Oscillator Editor}
  355.       xywh {131 90 735 595} type Double hide
  356.       code0 {if (oscil->ADvsPAD) o->label("PADsynth Harmonic Content Editor");}
  357.     } {
  358.       Fl_Button applybutton {
  359.         label Apply
  360.         callback {applybutton->color(FL_GRAY);
  361. applybutton->redraw();
  362. if (cbapplywidget!=NULL) {
  363.     cbapplywidget->do_callback();
  364.     cbapplywidget->color(FL_GRAY);
  365.     cbapplywidget->redraw();
  366. };} selected
  367.         xywh {300 280 60 20} box THIN_UP_BOX labelfont 1
  368.         code0 {if (!oscil->ADvsPAD) o->hide();}
  369.       }
  370.       Fl_Group oscildisplaygroup {
  371.         xywh {5 5 360 300} box ENGRAVED_FRAME
  372.       } {
  373.         Fl_Group {} {open
  374.           xywh {10 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  375.           code0 {Oscilloscope *osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  376.           code1 {osc->init(oscil,master);}
  377.         } {}
  378.         Fl_Box {} {
  379.           label Oscillator
  380.           xywh {120 10 110 20} box FLAT_BOX labelfont 1
  381.         }
  382.         Fl_Value_Slider rndslider {
  383.           label rnd
  384.           callback {oscil->Prand=(int)o->value()+64;
  385. oscildisplaygroup->redraw();
  386. oldosc->redraw();}
  387.           tooltip {Oscilator Phase Randomness: smaller than 0 is "group", larger than 0 is for each harmonic} xywh {140 285 100 10} type {Horz Knob} box FLAT_BOX labelsize 10 align 5 minimum -64 maximum 63 step 1
  388.           code0 {if (oscil->ADvsPAD) o->hide();}
  389.         }
  390.         Fl_Group {} {open
  391.           xywh {10 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63
  392.           code0 {OscilSpectrum *spc=new OscilSpectrum(o->x(),o->y(),o->w(),o->h(),"");}
  393.           code1 {spc->init(oscil,0,master);}
  394.         } {}
  395.         Fl_Group {} {
  396.           xywh {246 277 115 25} box ENGRAVED_BOX
  397.           code0 {if (oscil->ADvsPAD) o->hide();}
  398.         } {
  399.           Fl_Choice hrndtype {
  400.             label {H.rnd}
  401.             callback {oscil->Pamprandtype=(int) o->value();}
  402.             tooltip {Harmonic Amplitude Randomness} xywh {281 282 50 15} down_box BORDER_BOX labelsize 10 textsize 10
  403.           } {
  404.             menuitem {} {
  405.               label None
  406.               xywh {60 60 100 20} labelfont 1 labelsize 10
  407.             }
  408.             menuitem {} {
  409.               label Pow
  410.               xywh {70 70 100 20} labelfont 1 labelsize 10
  411.             }
  412.             menuitem {} {
  413.               label Sin
  414.               xywh {80 80 100 20} labelfont 1 labelsize 10
  415.             }
  416.           }
  417.           Fl_Dial hrnddial {
  418.             callback {oscil->Pamprandpower=(int) o->value();}
  419.             tooltip {Oscillator's spectrum adjust parameter} xywh {338 280 18 18} maximum 127 step 1
  420.             class WidgetPDial
  421.           }
  422.         }
  423.       }
  424.       Fl_Box {} {
  425.         label {Base Func.}
  426.         xywh {495 15 110 20} box FLAT_BOX labelfont 1
  427.       }
  428.       Fl_Group basefuncdisplaygroup {
  429.         xywh {365 5 360 300} box ENGRAVED_FRAME
  430.       } {
  431.         Fl_Group {} {
  432.           xywh {370 85 350 190} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179
  433.           code0 {Oscilloscope *osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  434.           code1 {osc->init(oscil,1,master);}
  435.         } {}
  436.         Fl_Dial bfslider {
  437.           callback {oscil->Pbasefuncpar=(int)o->value()+64;
  438. basefuncdisplaygroup->redraw();
  439. bfparval->value(oscil->Pbasefuncpar-64);
  440.  
  441. redrawoscil();}
  442.           tooltip {Base Function Parameter} xywh {520 280 20 20} minimum -64 maximum 63 step 1
  443.           class WidgetPDial
  444.         }
  445.         Fl_Choice bftype {
  446.           label {Base.F..}
  447.           callback {oscil->Pcurrentbasefunc=(int) o->value();
  448.  
  449. basefuncdisplaygroup->redraw();
  450. redrawoscil();
  451.  
  452. if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();
  453.       else basefuncmodulation->activate();}
  454.           xywh {370 285 90 15} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  455.         } {
  456.           menuitem {} {
  457.             label Sine
  458.             xywh {10 10 100 20} labelfont 1 labelsize 12
  459.           }
  460.           menuitem {} {
  461.             label Triangle
  462.             xywh {20 20 100 20} labelfont 1 labelsize 12
  463.           }
  464.           menuitem {} {
  465.             label Pulse
  466.             xywh {30 30 100 20} labelfont 1 labelsize 12
  467.           }
  468.           menuitem {} {
  469.             label Saw
  470.             xywh {40 40 100 20} labelfont 1 labelsize 12
  471.           }
  472.           menuitem {} {
  473.             label Power
  474.             xywh {50 50 100 20} labelfont 1 labelsize 12
  475.           }
  476.           menuitem {} {
  477.             label Gauss
  478.             xywh {50 50 100 20} labelfont 1 labelsize 12
  479.           }
  480.           menuitem {} {
  481.             label Diode
  482.             xywh {60 60 100 20} labelfont 1 labelsize 12
  483.           }
  484.           menuitem {} {
  485.             label AbsSine
  486.             xywh {70 70 100 20} labelfont 1 labelsize 12
  487.           }
  488.           menuitem {} {
  489.             label PulseSine
  490.             xywh {80 80 100 20} labelfont 1 labelsize 12
  491.           }
  492.           menuitem {} {
  493.             label StrchSine
  494.             xywh {90 90 100 20} labelfont 1 labelsize 12
  495.           }
  496.           menuitem {} {
  497.             label Chirp
  498.             xywh {100 100 100 20} labelfont 1 labelsize 12
  499.           }
  500.           menuitem {} {
  501.             label AbsStrSine
  502.             xywh {102 102 100 20} labelfont 1 labelsize 12
  503.           }
  504.           menuitem {} {
  505.             label Chebyshev
  506.             xywh {112 112 100 20} labelfont 1 labelsize 12
  507.           }
  508.           menuitem {} {
  509.             label Sqr
  510.             xywh {122 122 100 20} labelfont 1 labelsize 12
  511.           }
  512.         }
  513.         Fl_Box {} {
  514.           label {Base Func.}
  515.           xywh {480 10 110 20} box FLAT_BOX labelfont 1
  516.         }
  517.         Fl_Group {} {open
  518.           xywh {370 30 350 50} box THIN_DOWN_BOX color 32 selection_color 218 labelcolor 63
  519.           code0 {OscilSpectrum *spc=new OscilSpectrum (o->x(),o->y(),o->w(),o->h(),"");}
  520.           code1 {spc->init(oscil,1,master);}
  521.         } {}
  522.         Fl_Value_Output bfparval {
  523.           label {Par.}
  524.           xywh {490 285 25 15} labelsize 13 minimum -63 maximum 63 step 1
  525.         }
  526.         Fl_Group basefuncmodulation {
  527.           xywh {550 276 169 25} box ENGRAVED_BOX
  528.           code0 {if ((oscil->Pcurrentbasefunc==0)||(oscil->Pcurrentbasefunc==127)) basefuncmodulation->deactivate();}
  529.         } {
  530.           Fl_Choice bfmodtype {
  531.             label {B.F.Mod.}
  532.             callback {oscil->Pbasefuncmodulation=(int) o->value();
  533. basefuncdisplaygroup->redraw();
  534. redrawoscil();}
  535.             tooltip {Base function modulation} xywh {599 281 50 15} down_box BORDER_BOX labelsize 10 textsize 10
  536.           } {
  537.             menuitem {} {
  538.               label None
  539.               xywh {50 50 100 20} labelfont 1 labelsize 10
  540.             }
  541.             menuitem {} {
  542.               label Rev
  543.               xywh {60 60 100 20} labelfont 1 labelsize 10
  544.             }
  545.             menuitem {} {
  546.               label Sine
  547.               xywh {70 70 100 20} labelfont 1 labelsize 10
  548.             }
  549.             menuitem {} {
  550.               label Pow
  551.               xywh {80 80 100 20} labelfont 1 labelsize 10
  552.             }
  553.           }
  554.           Fl_Dial bfmodpar1 {
  555.             callback {oscil->Pbasefuncmodulationpar1=(int)o->value();
  556. basefuncdisplaygroup->redraw();
  557. redrawoscil();}
  558.             tooltip {Oscillator's modulation parameter 1} xywh {659 281 15 15} maximum 127 step 1
  559.             class WidgetPDial
  560.           }
  561.           Fl_Dial bfmodpar2 {
  562.             callback {oscil->Pbasefuncmodulationpar2=(int)o->value();
  563. basefuncdisplaygroup->redraw();
  564. redrawoscil();}
  565.             tooltip {Oscillator's modulation parameter 2} xywh {679 281 15 15} maximum 127 step 1
  566.             class WidgetPDial
  567.           }
  568.           Fl_Dial bfmodpar3 {
  569.             callback {oscil->Pbasefuncmodulationpar3=(int)o->value();
  570. basefuncdisplaygroup->redraw();
  571. redrawoscil();}
  572.             tooltip {Oscillator's modulation parameter 3} xywh {699 281 15 15} maximum 127 step 1
  573.             class WidgetPDial
  574.           }
  575.         }
  576.       }
  577.       Fl_Choice magtype {
  578.         label {Mag.Type}
  579.         callback {oscil->Phmagtype=(int) o->value();
  580. basefuncdisplaygroup->redraw();
  581.  
  582. redrawoscil();}
  583.         xywh {70 280 65 20} down_box BORDER_BOX labelsize 12 textsize 12
  584.       } {
  585.         menuitem {} {
  586.           label Linear
  587.           xywh {0 0 100 20} labelfont 1 labelsize 12
  588.         }
  589.         menuitem {} {
  590.           label {-40dB}
  591.           xywh {10 10 100 20} labelfont 1 labelsize 12
  592.         }
  593.         menuitem {} {
  594.           label {-60dB}
  595.           xywh {20 20 100 20} labelfont 1 labelsize 12
  596.         }
  597.         menuitem {} {
  598.           label {-80dB}
  599.           xywh {30 30 100 20} labelfont 1 labelsize 12
  600.         }
  601.         menuitem {} {
  602.           label {-100dB}
  603.           xywh {40 40 100 20} labelfont 1 labelsize 12
  604.         }
  605.       }
  606.       Fl_Button {} {
  607.         label {Use as base}
  608.         callback {oscil->useasbase();
  609. if (autoclearbutton->value()){
  610.    for (int i=0;i<MAX_AD_HARMONICS;i++){
  611.       h[i]->mag->value(64);
  612.       oscil->Phmag[i]=64;
  613.       h[i]->phase->value(64);
  614.       oscil->Phphase[i]=64;
  615.    };
  616.    oscil->Phmag[0]=127;
  617.  
  618.    oscil->Pharmonicshift=0;
  619.    harmonicshiftcounter->value(0);
  620.  
  621.    h[0]->mag->value(0);
  622.    wshbutton->value(0);
  623.    wshbutton->do_callback();
  624.    fltbutton->value(0);
  625.    fltbutton->do_callback();
  626.    sabutton->value(0);
  627.    sabutton->do_callback();
  628. };
  629.  
  630. pthread_mutex_lock(&master->mutex);
  631.  for (int i=0;i<MAX_AD_HARMONICS;i++){
  632.    if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);
  633.       else h[i]->mag->selection_color(222);
  634.  };
  635.  oscil->prepare();
  636. pthread_mutex_unlock(&master->mutex);
  637.  
  638. basefuncdisplaygroup->redraw();
  639. redrawoscil();}
  640.         tooltip {Use this Oscillator as base function} xywh {5 313 85 20} box THIN_UP_BOX labelfont 1 labelsize 12
  641.       }
  642.       Fl_Button {} {
  643.         label Close
  644.         callback {osceditUI->hide();}
  645.         xywh {668 565 62 25} box THIN_UP_BOX
  646.       }
  647.       Fl_Button {} {
  648.         label Clear
  649.         callback {if (!fl_ask("Clear the harmonics settings?")) return;
  650.  
  651. for (int i=0;i<MAX_AD_HARMONICS;i++){
  652.     h[i]->mag->value(64);
  653.     oscil->Phmag[i]=64;
  654.     h[i]->phase->value(64);
  655.     oscil->Phphase[i]=64;
  656. };
  657. oscil->Phmag[0]=127;
  658. h[0]->mag->value(0);
  659.  
  660. for (int i=0;i<MAX_AD_HARMONICS;i++){
  661.   if (oscil->Phmag[i]==64) h[i]->mag->selection_color(0);
  662.      else h[i]->mag->selection_color(222);
  663. };
  664.  
  665. //harmonics->redraw();
  666.  
  667. pthread_mutex_lock(&master->mutex);
  668.  oscil->prepare();
  669. pthread_mutex_unlock(&master->mutex);
  670.  
  671. redrawoscil();}
  672.         xywh {670 505 55 15} box THIN_UP_BOX labelfont 1 labelsize 12
  673.       }
  674.       Fl_Group {} {
  675.         xywh {135 308 150 30} box ENGRAVED_BOX
  676.       } {
  677.         Fl_Choice wshbutton {
  678.           label {Wsh.}
  679.           callback {oscil->Pwaveshapingfunction=(int) o->value();
  680. basefuncdisplaygroup->redraw();
  681. redrawoscil();} open
  682.           tooltip {Waveshaping function} xywh {165 313 55 20} down_box BORDER_BOX labelsize 10 textsize 10
  683.         } {
  684.           menuitem {} {
  685.             label None
  686.             xywh {25 25 100 20} labelfont 1 labelsize 10
  687.           }
  688.           menuitem {} {
  689.             label Atan
  690.             xywh {35 35 100 20} labelfont 1 labelsize 10
  691.           }
  692.           menuitem {} {
  693.             label Asym1
  694.             xywh {45 45 100 20} labelfont 1 labelsize 10
  695.           }
  696.           menuitem {} {
  697.             label Pow
  698.             xywh {55 55 100 20} labelfont 1 labelsize 10
  699.           }
  700.           menuitem {} {
  701.             label Sine
  702.             xywh {65 65 100 20} labelfont 1 labelsize 10
  703.           }
  704.           menuitem {} {
  705.             label Qnts
  706.             xywh {75 75 100 20} labelfont 1 labelsize 10
  707.           }
  708.           menuitem {} {
  709.             label Zigzg
  710.             xywh {85 85 100 20} labelfont 1 labelsize 10
  711.           }
  712.           menuitem {} {
  713.             label Lmt
  714.             xywh {95 95 100 20} labelfont 1 labelsize 10
  715.           }
  716.           menuitem {} {
  717.             label LmtU
  718.             xywh {105 105 100 20} labelfont 1 labelsize 10
  719.           }
  720.           menuitem {} {
  721.             label LmtL
  722.             xywh {115 115 100 20} labelfont 1 labelsize 10
  723.           }
  724.           menuitem {} {
  725.             label ILmt
  726.             xywh {127 127 100 20} labelfont 1 labelsize 10
  727.           }
  728.           menuitem {} {
  729.             label Clip
  730.             xywh {137 137 100 20} labelfont 1 labelsize 10
  731.           }
  732.           menuitem {} {
  733.             label Asym2
  734.             xywh {85 85 100 20} labelfont 1 labelsize 10
  735.           }
  736.           menuitem {} {
  737.             label Pow2
  738.             xywh {95 95 100 20} labelfont 1 labelsize 10
  739.           }
  740.           menuitem {} {
  741.             label Sgm
  742.             xywh {90 90 100 20} labelfont 1 labelsize 10
  743.           }
  744.         }
  745.         Fl_Dial wshpar {
  746.           callback {oscil->Pwaveshaping=(int)o->value()+64;
  747. wsparval->value(oscil->Pwaveshaping-64);
  748. redrawoscil();}
  749.           tooltip {Waveshaping Parameter} xywh {260 313 20 20} minimum -64 maximum 63 step 1
  750.           class WidgetPDial
  751.         }
  752.         Fl_Value_Output wsparval {
  753.           xywh {228 316 25 15} labelsize 13 minimum -63 maximum 63 step 1
  754.         }
  755.       }
  756.       Fl_Light_Button autoclearbutton {
  757.         label {Clr.}
  758.         tooltip {Auto clear when using the oscillator as base function} xywh {95 313 35 20} box THIN_UP_BOX value 1 labelfont 1 labelsize 10
  759.       }
  760.       Fl_Group {} {
  761.         xywh {285 308 155 30} box ENGRAVED_BOX
  762.       } {
  763.         Fl_Choice fltbutton {
  764.           label Filter
  765.           callback {oscil->Pfiltertype=(int) o->value();
  766.  
  767. redrawoscil();}
  768.           tooltip {Oscillator's filter type} xywh {315 313 50 20} down_box BORDER_BOX labelsize 10 textsize 10
  769.         } {
  770.           menuitem {} {
  771.             label None
  772.             xywh {35 35 100 20} labelfont 1 labelsize 10
  773.           }
  774.           menuitem {} {
  775.             label LP1
  776.             xywh {45 45 100 20} labelfont 1 labelsize 10
  777.           }
  778.           menuitem {} {
  779.             label HP1a
  780.             xywh {55 55 100 20} labelfont 1 labelsize 10
  781.           }
  782.           menuitem {} {
  783.             label HP1b
  784.             xywh {65 65 100 20} labelfont 1 labelsize 10
  785.           }
  786.           menuitem {} {
  787.             label BP1
  788.             xywh {75 75 100 20} labelfont 1 labelsize 10
  789.           }
  790.           menuitem {} {
  791.             label BS1
  792.             xywh {85 85 100 20} labelfont 1 labelsize 10
  793.           }
  794.           menuitem {} {
  795.             label LP2
  796.             xywh {55 55 100 20} labelfont 1 labelsize 10
  797.           }
  798.           menuitem {} {
  799.             label HP2
  800.             xywh {65 65 100 20} labelfont 1 labelsize 10
  801.           }
  802.           menuitem {} {
  803.             label BP2
  804.             xywh {65 65 100 20} labelfont 1 labelsize 10
  805.           }
  806.           menuitem {} {
  807.             label BS2
  808.             xywh {75 75 100 20} labelfont 1 labelsize 10
  809.           }
  810.           menuitem {} {
  811.             label Cos
  812.             xywh {75 75 100 20} labelfont 1 labelsize 10
  813.           }
  814.           menuitem {} {
  815.             label Sin
  816.             xywh {85 85 100 20} labelfont 1 labelsize 10
  817.           }
  818.           menuitem {} {
  819.             label LSh
  820.             xywh {95 95 100 20} labelfont 1 labelsize 10
  821.           }
  822.           menuitem {} {
  823.             label S
  824.             xywh {105 105 100 20} labelfont 1 labelsize 10
  825.           }
  826.         }
  827.         Fl_Dial filtervalue1 {
  828.           callback {oscil->Pfilterpar1=(int)o->value();
  829.  
  830. redrawoscil();}
  831.           tooltip {Oscillator's filter parameter1} xywh {367 313 20 20} maximum 127 step 1
  832.           class WidgetPDial
  833.         }
  834.         Fl_Check_Button filterpref {
  835.           label p
  836.           callback {oscil->Pfilterbeforews=(int)o->value();
  837.  
  838. redrawoscil();}
  839.           tooltip {Apply the filter before the waveshaping} xywh {415 313 20 20} down_box DOWN_BOX labelsize 10 align 24
  840.         }
  841.         Fl_Dial filtervalue2 {
  842.           callback {oscil->Pfilterpar2=(int)o->value();
  843.  
  844. redrawoscil();}
  845.           tooltip {Oscillator's filter parameter2} xywh {392 313 20 20} maximum 127 step 1
  846.           class WidgetPDial
  847.         }
  848.       }
  849.       Fl_Group {} {
  850.         xywh {590 308 135 30} box ENGRAVED_BOX
  851.       } {
  852.         Fl_Choice sabutton {
  853.           label {Sp.adj.}
  854.           callback {oscil->Psatype=(int) o->value();
  855. redrawoscil();}
  856.           tooltip {Oscillator's spectrum adjust} xywh {630 313 60 20} down_box BORDER_BOX labelsize 10 textsize 10
  857.         } {
  858.           menuitem {} {
  859.             label None
  860.             xywh {55 55 100 20} labelfont 1 labelsize 10
  861.           }
  862.           menuitem {} {
  863.             label Pow
  864.             xywh {65 65 100 20} labelfont 1 labelsize 10
  865.           }
  866.           menuitem {} {
  867.             label ThrsD
  868.             xywh {75 75 100 20} labelfont 1 labelsize 10
  869.           }
  870.           menuitem {} {
  871.             label ThrsU
  872.             xywh {85 85 100 20} labelfont 1 labelsize 10
  873.           }
  874.         }
  875.         Fl_Dial sadjpar {
  876.           callback {oscil->Psapar=(int)o->value();
  877. redrawoscil();}
  878.           tooltip {Oscillator's spectrum adjust parameter} xywh {695 313 20 20} maximum 127 step 1
  879.           class WidgetPDial
  880.         }
  881.       }
  882.       Fl_Group {} {
  883.         xywh {665 340 65 65} box ENGRAVED_BOX
  884.       } {
  885.         Fl_Counter harmonicshiftcounter {
  886.           label {Harmonic Shift}
  887.           callback {oscil->Pharmonicshift=(int)o->value();
  888. redrawoscil();}
  889.           xywh {670 365 55 15} type Simple labelsize 10 align 129 minimum -64 maximum 64 step 1 textfont 1 textsize 10
  890.         }
  891.         Fl_Check_Button harmonicshiftpre {
  892.           label preH
  893.           callback {oscil->Pharmonicshiftfirst=(int)o->value();
  894. redrawoscil();}
  895.           tooltip {Apply the harmonic shift before the waveshaping and filtering} xywh {690 385 34 15} down_box DOWN_BOX labelsize 10 align 24
  896.         }
  897.         Fl_Button {} {
  898.           label R
  899.           callback {oscil->Pharmonicshift=0;
  900. harmonicshiftcounter->value(0);
  901. redrawoscil();}
  902.           xywh {670 385 20 15} box THIN_UP_BOX labelfont 1 labelsize 10
  903.         }
  904.       }
  905.       Fl_Group {} {
  906.         xywh {665 410 65 90} box ENGRAVED_FRAME
  907.       } {
  908.         Fl_Choice adhrtype {
  909.           label {Adpt.Harm.}
  910.           callback {oscil->Padaptiveharmonics=(int) o->value();
  911. redrawoscil();}
  912.           tooltip {The type of the addaptive harmonics} xywh {670 425 55 15} down_box BORDER_BOX labelsize 10 align 129 when 6 textsize 10
  913.         } {
  914.           menuitem {} {
  915.             label OFF
  916.             xywh {80 80 100 20} labelfont 1 labelsize 10
  917.           }
  918.           menuitem {} {
  919.             label ON
  920.             xywh {90 90 100 20} labelfont 1 labelsize 10
  921.           }
  922.           menuitem {} {
  923.             label Square
  924.             xywh {100 100 100 20} labelfont 1 labelsize 10
  925.           }
  926.           menuitem {} {
  927.             label 2xSub
  928.             xywh {110 110 100 20} labelfont 1 labelsize 10
  929.           }
  930.           menuitem {} {
  931.             label 2xAdd
  932.             xywh {120 120 100 20} labelfont 1 labelsize 10
  933.           }
  934.           menuitem {} {
  935.             label 3xSub
  936.             xywh {120 120 100 20} labelfont 1 labelsize 10
  937.           }
  938.           menuitem {} {
  939.             label 3xAdd
  940.             xywh {130 130 100 20} labelfont 1 labelsize 10
  941.           }
  942.           menuitem {} {
  943.             label 4xSub
  944.             xywh {130 130 100 20} labelfont 1 labelsize 10
  945.           }
  946.           menuitem {} {
  947.             label 4xAdd
  948.             xywh {140 140 100 20} labelfont 1 labelsize 10
  949.           }
  950.         }
  951.         Fl_Dial adhrpow {
  952.           label pow
  953.           callback {oscil->Padaptiveharmonicspower=(int)o->value();
  954. redrawoscil();}
  955.           tooltip {Adaptive harmonics power} xywh {700 460 25 25} labelsize 10 maximum 200 step 1
  956.           class WidgetPDial
  957.         }
  958.         Fl_Dial adhrbf {
  959.           label baseF
  960.           callback {oscil->Padaptiveharmonicsbasefreq=(int)o->value();
  961. redrawoscil();}
  962.           tooltip {Adaptive harmonics base frequency} xywh {670 460 25 25} labelsize 10 maximum 255 step 1
  963.           class WidgetPDial
  964.         }
  965.         Fl_Slider adhrpar {
  966.           callback {oscil->Padaptiveharmonicspar=(int)o->value();
  967. redrawoscil();}
  968.           xywh {670 445 55 10} type {Horz Knob} box FLAT_BOX maximum 100 step 1 value 50
  969.         }
  970.       }
  971.       Fl_Group {} {
  972.         xywh {440 308 150 30} box ENGRAVED_BOX
  973.       } {
  974.         Fl_Choice modtype {
  975.           label {Mod.}
  976.           callback {oscil->Pmodulation=(int) o->value();
  977.  
  978. redrawoscil();}
  979.           tooltip modulation xywh {470 315 50 15} down_box BORDER_BOX labelsize 10 textsize 10
  980.         } {
  981.           menuitem {} {
  982.             label None
  983.             xywh {60 60 100 20} labelfont 1 labelsize 10
  984.           }
  985.           menuitem {} {
  986.             label Rev
  987.             xywh {70 70 100 20} labelfont 1 labelsize 10
  988.           }
  989.           menuitem {} {
  990.             label Sine
  991.             xywh {80 80 100 20} labelfont 1 labelsize 10
  992.           }
  993.           menuitem {} {
  994.             label Pow
  995.             xywh {90 90 100 20} labelfont 1 labelsize 10
  996.           }
  997.         }
  998.         Fl_Dial modpar1 {
  999.           callback {oscil->Pmodulationpar1=(int)o->value();
  1000.  
  1001. redrawoscil();}
  1002.           tooltip {Oscillator's modulation parameter 1} xywh {530 315 15 15} maximum 127 step 1
  1003.           class WidgetPDial
  1004.         }
  1005.         Fl_Dial modpar2 {
  1006.           callback {oscil->Pmodulationpar2=(int)o->value();
  1007.  
  1008. redrawoscil();}
  1009.           tooltip {Oscillator's modulation parameter 2} xywh {550 315 15 15} maximum 127 step 1
  1010.           class WidgetPDial
  1011.         }
  1012.         Fl_Dial modpar3 {
  1013.           callback {oscil->Pmodulationpar3=(int)o->value();
  1014. redrawoscil();}
  1015.           tooltip {Oscillator's modulation parameter 3} xywh {570 315 15 15} maximum 127 step 1
  1016.           class WidgetPDial
  1017.         }
  1018.       }
  1019.       Fl_Button {} {
  1020.         label Sine
  1021.         callback {if (!fl_ask("Convert to SINE?")) return;
  1022.  
  1023. pthread_mutex_lock(&master->mutex);
  1024.  oscil->convert2sine(0);
  1025. pthread_mutex_unlock(&master->mutex);
  1026.  
  1027. redrawoscil();
  1028. refresh();}
  1029.         xywh {670 525 55 15} box THIN_UP_BOX labelfont 1 labelsize 12
  1030.       }
  1031.       Fl_Button {} {
  1032.         label C
  1033.         callback {presetsui->copy(oscil);}
  1034.         xywh {670 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  1035.       }
  1036.       Fl_Button {} {
  1037.         label P
  1038.         callback {presetsui->paste(oscil,this);}
  1039.         xywh {700 545 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  1040.       }
  1041.       Fl_Scroll _this_has_to_be_the_last {
  1042.         xywh {5 340 660 250} type HORIZONTAL box ENGRAVED_BOX
  1043.       } {
  1044.         Fl_Pack harmonics {open
  1045.           xywh {10 345 650 225} type HORIZONTAL
  1046.           code0 {for (int i=0;i<MAX_AD_HARMONICS;i++){h[i]=new Oscilharmonic(0,0,20,o->h(),"");h[i]->init(oscil,i,oscildisplaygroup,oldosc,cbwidget,applybutton,master);}}
  1047.         } {}
  1048.       }
  1049.     }
  1050.   }
  1051.   Function {OscilEditor(OscilGen *oscil_,Fl_Widget *oldosc_,Fl_Widget *cbwidget_,Fl_Widget *cbapplywidget_,Master *master_)} {} {
  1052.     code {oscil=oscil_;
  1053. oldosc=oldosc_;
  1054. cbwidget=cbwidget_;
  1055. cbapplywidget=cbapplywidget_;
  1056. master=master_;
  1057.  
  1058. make_window();
  1059.  
  1060. refresh();
  1061. osceditUI->show();} {}
  1062.   }
  1063.   Function {~OscilEditor()} {} {
  1064.     code {osceditUI->hide();
  1065. //for (int i=0;i<MAX_AD_HARMONICS;i++) delete (h[i]);
  1066. delete (osceditUI);} {}
  1067.   }
  1068.   Function {refresh()} {} {
  1069.     code {magtype->value(oscil->Phmagtype);
  1070. rndslider->value(oscil->Prand-64);
  1071.  
  1072. hrndtype->value(oscil->Pamprandtype);
  1073. hrnddial->value(oscil->Pamprandpower);
  1074.  
  1075. bftype->value(oscil->Pcurrentbasefunc);
  1076. bfparval->value(oscil->Pbasefuncpar-64);
  1077. bfslider->value(oscil->Pbasefuncpar-64);
  1078.  
  1079. bfmodtype->value(oscil->Pbasefuncmodulation);
  1080. bfmodpar1->value(oscil->Pbasefuncmodulationpar1);
  1081. bfmodpar2->value(oscil->Pbasefuncmodulationpar2);
  1082. bfmodpar3->value(oscil->Pbasefuncmodulationpar3);
  1083.  
  1084. wshbutton->value(oscil->Pwaveshapingfunction);
  1085. wsparval->value(oscil->Pwaveshaping-64);
  1086. wshpar->value(oscil->Pwaveshaping-64);
  1087.  
  1088. fltbutton->value(oscil->Pfiltertype);
  1089. filtervalue1->value(oscil->Pfilterpar1);
  1090. filtervalue2->value(oscil->Pfilterpar2);
  1091. filterpref->value(oscil->Pfilterbeforews);
  1092.  
  1093. modtype->value(oscil->Pmodulation);
  1094. modpar1->value(oscil->Pmodulationpar1);
  1095. modpar2->value(oscil->Pmodulationpar2);
  1096. modpar3->value(oscil->Pmodulationpar3);
  1097.  
  1098. sabutton->value(oscil->Psatype);
  1099. sadjpar->value(oscil->Psapar);
  1100.  
  1101. harmonicshiftcounter->value(oscil->Pharmonicshift);
  1102. harmonicshiftpre->value(oscil->Pharmonicshiftfirst);
  1103.  
  1104. adhrtype->value(oscil->Padaptiveharmonics);
  1105. adhrbf->value(oscil->Padaptiveharmonicsbasefreq);
  1106. adhrpow->value(oscil->Padaptiveharmonicspower);
  1107. adhrtype->value(oscil->Padaptiveharmonicspar);
  1108.  
  1109. for (int i=0;i<MAX_AD_HARMONICS;i++) h[i]->refresh();
  1110.  
  1111. pthread_mutex_lock(&master->mutex);
  1112.  oscil->prepare();
  1113. pthread_mutex_unlock(&master->mutex);
  1114.  
  1115. basefuncdisplaygroup->redraw();
  1116. redrawoscil();} {}
  1117.   }
  1118.   Function {redrawoscil()} {} {
  1119.     code {oscildisplaygroup->redraw();
  1120. oldosc->redraw();
  1121. if (cbwidget!=NULL) {
  1122.       cbwidget->do_callback();
  1123.       applybutton->color(FL_RED);
  1124.       applybutton->redraw();
  1125. };} {}
  1126.   }
  1127.   decl {OscilGen *oscil;} {}
  1128.   decl {Fl_Widget *oldosc,*cbwidget,*cbapplywidget;} {}
  1129.   decl {Oscilharmonic *h[MAX_AD_HARMONICS];} {}
  1130.   decl {Master *master;} {}
  1131. } 
  1132.